
Sheet1.Shapes("ComboBox1").OLEFormat.Activate